home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
SERVER.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
6KB
|
73 lines
;;; compiled by jwz@thalidomide on Sat Jan 16 01:47:01 1993
;;; from file /cadillac-th/jwz/emacs19/lisp/packages/server.el
;;; emacs version 19.4.1 Lucid.
;;; bytecomp version 2.09; 12-jan-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar server-program "emacsserver" "\
*The program to use as the edit server")
(defvar server-visit-hook nil "\
*List of hooks to call when switching to a buffer for the Emacs server.")
(defvar server-process nil "\
the current server process")
(defvar server-clients nil "\
List of current server clients.
Each element is (CLIENTID FILES...) where CLIENTID is a string
that can be given to the server process to identify a client.
When a buffer is marked as \"done\", it is removed from this list.")
(defvar server-buffer-clients nil "\
List of clientids for clients requesting editing of current buffer.")
(put 'server-buffer-clients 'permanent-local t)
(defvar server-temp-file-regexp "^/tmp/Re\\|/draft$" "\
*Regexp which should match filenames of temporary files
which are deleted and reused after each edit
by the programs that invoke the emacs server.")
(byte-code "└┴!ê┬┴├\"ê┴₧¼ä┼B╞╟Mê╚╔Mç" [make-variable-buffer-local server-buffer-clients set-default nil minor-mode-alist (server-buffer-clients " Server") server-log #[(string) "└┴!¡Éè┴qêdbê\ncêo«é├ )ç" [get-buffer "*server*" string newline] 2] server-sentinel #[(proc msg) "└ !┬=½å├─┼!!ç└ !╞=¡à├─╟!!ç" [process-status proc exit server-log message "Server subprocess exited" signal "Server subprocess killed"] 3]] 3)
(fset 'server-start #[(&optional leave-dead) "½è┴┬\"ê┬├─Åê┬┼╞Åê½Å@A@╔!ê)¬m\n?¡¥½å╦╠═!!ê╬╧┬#┴╤\"ê╥╙\"ê╘!ç" [server-process set-process-sentinel nil (delete-process server-process) ((error)) (delete-file "~/.emacs_server") ((error)) server-clients buffer server-buffer-done leave-dead server-log message "Restarting server" start-process "server" server-program server-sentinel set-process-filter server-process-filter process-kill-without-query] 4 "\
Allow this Emacs process to be a server for client processes.
This starts a server communications subprocess through which
client \"editors\" can send your editing commands to this Emacs job.
To use the server, set up the program `etc/emacsclient' in the
Emacs distribution as your standard \"editor\".
Prefix arg means just kill any existing server communications subprocess." "P"])
(fset 'server-process-filter #[(proc string) "└ !ê┬├ \"─=??¡≤ ─ò┼Oë─┬╞ \"OC┼╟ \n ─ò┼O┬╦ \"½▒ ─ö─òSO ─ò┼O┬═\"½ï╬╟┼O!¬ìD B ╟)¬I╧ \n\"ê\nB╤\nA@!ê╥╙ !ê╘╒╓!!+ç" [server-log string string-match "Client: " 0 nil " " 1 lineno files client "[^ ]+ " arg "\\`\\+[0-9]+\\'" read server-visit-files server-clients switch-to-buffer make-screen-visible selected-screen message substitute-command-keys "When done with a buffer, type \\[server-edit]."] 6])
(fset 'server-visit-files #[(files client) "└\n½╪è\n@@─!뽿q½ñ╞!½æ╟!½à╚!½₧╔╩└\"ê¬ù╦╠═Q!½Å╬!ê¬ë╧!qê╨╤!ê*╥\n@A@!ê@Bp B)\nAë¼( ñ)ç" [nil client-record files filen get-file-buffer obuf file-exists-p verify-visited-file-modtime buffer-modified-p revert-buffer t y-or-n-p "File no longer exists: " ", write buffer to file? " write-file find-file-noselect run-hooks server-visit-hook goto-line client server-buffer-clients] 5 "\
Finds FILES and returns the list CLIENT with the buffers nconc'd.
FILES is an alist whose elements are (FILENAME LINENUMBER)."])
(fset 'server-buffer-done #[(buffer) "└ !┬=├½┴@¼ë >A@╩ \"êA¼¥½ô╦ ╠═@\"\"ê╬╠═@\"!ê╩\")Aë¼?╧ !½ëè qê├)╤ !ê+ç" [process-status server-process run nil server-clients old-clients next-buffer running client buffer delq send-string format "Close: %s Done\n" server-log buffer-name server-buffer-clients bury-buffer] 6 "\
Mark BUFFER as \"done\" for its client(s).
Buries the buffer, and returns another server buffer
as a suggestion for what to select next."])
(fset 'server-temp-file-p #[(buffer) "└ !¡å┬└ !\"ç" [buffer-file-name buffer string-match server-temp-file-regexp] 4 "\
Return non-nil if BUFFER contains a file considered temporary.
These are files whose names suggest they are repeatedly
reused to pass information to another program.
The variable `server-temp-file-regexp' controls which filenames
are considered temporary."])
(fset 'server-done #[nil "p ¡⌐┬!½æ├ ê─ed╞P#ê╟!ê¬É╚ ½î╔╩╦Q!½ä├!ê╠!)ç" [buffer server-buffer-clients server-temp-file-p save-buffer write-region buffer-file-name "~" kill-buffer buffer-modified-p y-or-n-p "Save file " "? " server-buffer-done] 5 "\
Offer to save current buffer, mark it as \"done\" for clients,
bury it, and return a suggested buffer to select next."])
(fset 'server-edit #[(&optional arg) "¼è ½ç┬ !├>½ä─┼!ç╞╟ !ç" [arg server-process process-status (signal exit) server-start nil server-switch-buffer server-done] 2 "\
Switch to next server editing buffer; say \"Done\" for current buffer.
If a server buffer is current, it is marked \"done\" and optionally saved.
When all of a client's buffers are marked as \"done\", the client is notified.
Temporary files such as MH <draft> files are always saved and backed up,
no questions asked. The variable `server-temp-file-regexp' controls
which filenames are considered temporary.
If invoked with a prefix argument, or if there is no server process running,
starts server process and that is all. Invoked by \\[server-edit]." "P"])
(fset 'server-switch-buffer #[(next-buffer) "½ö┴!½ë┬!½ä├!ç─┼!!ç½ê─@A@!ç├╟ !ç" [next-buffer bufferp buffer-name switch-to-buffer server-switch-buffer server-buffer-done server-clients other-buffer] 3 "\
Switch to another buffer, preferably one that has a client.
Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."])
(global-set-key "#" 'server-edit)